home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / ROTSTACK.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-05  |  764b  |  40 lines
  1. {-- Program to illustrate moving a one frame onto the top of another }
  2. {-- frame. }
  3.  
  4. Uses
  5.     TEGLIntr,
  6.     TEGLUnit,
  7.     TEGLMain;
  8.  
  9.  
  10. VAR fs : ImageStkPtr;
  11.  
  12.  
  13. BEGIN
  14.  
  15.    EasyTEGL;
  16.    EasyOut;
  17.  
  18.    {-- create the first frame }
  19.  
  20.    PushImage(1,1,100,100);
  21.    ShadowBox(1,1,100,100);
  22.    FS := StackPtr;           {-- stackptr always has the most recent frame }
  23.  
  24.    {-- then create the second frame }
  25.    PushImage(50,50,150,150);
  26.    ShadowBox(50,50,150,150);
  27.  
  28.    {-- since we haven't gone to the supervisor yet we must }
  29.    {-- specifically display the mouse. }
  30.    ShowMouse;
  31.    {-- wait for a mouse click }
  32.    WHILE Mouse_Buttons = 0 DO;
  33.  
  34.    {-- then move them around. }
  35.    RotateStackImage(fs,StackPtr);
  36.  
  37.  
  38.    TEGLSupervisor;
  39. END.
  40.